home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
misc
/
man3801.lha
/
Man3.801
/
Install
< prev
next >
Wrap
Text File
|
1995-05-17
|
5KB
|
157 lines
; *** Man installation scipt ***
(set #install-msg
(cat "\n\nMan installation script.\n"
"This script installs the MAN commodity on your Amiga.\n\n"
"Read the documentation for\n"
"more information on the distribution\n"
"and commercial usage of Man.\n\n"
"Man © 1993-1995 Markus Hillenbrand\n"
"All rights reserved."
))
(set #bad-kick "You must be using Kickstart 2.04 to install using this script!")
(set #copying-reqtools "Copying reqtools.library to Libs:...")
(message #install-msg)
(welcome "Welcome to the Man installation!")
(if (< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
))
(set cputype (+(database "CPU")))
(if (>= cputype 68020)
(set MANFILE "Man_020")
(set MANFILE "Man")
)
(if (exists "S:Man.cfg")
(
(delete "S:Man.cfg")
))
(set reqtoolslib "libs20/reqtools.library")
(set catalogdir "catalogs/")
(copylib
(prompt "\n" #copying-reqtools)
(help @copylib-help)
(source reqtoolslib)
(dest "Libs:")
(confirm)
)
(if (exists "SYS:WBStartUp/Man") (copylib (prompt "\nInstalling Man-Commodity\n")
(help @copylib-help)
(source MANFILE)
(newname "Man")
(dest "SYS:WBStartUp")
(confirm))
(copyfiles (prompt "\nInstalling Man-Commodity\n")
(help @copyfile-help)
(source MANFILE)
(newname "Man")
(dest "SYS:WBStartUp")
(infos)
(noposition)
(confirm))
)
(set #which-language "\nWhich languages should be installed?\n(English is default.)")
(set old_level @user-level)
(set default_lang 1)
(if (exists "SYS:Locale")
(
(if (exists "LOCALE:")
(
(user 1)
(set lang (askoptions (prompt #which-language)
(help #which-language-help)
(choices "Deutsch"
"Svenska")
(default default_lang)
)
)
(user old_level)
(set n 0)
(while (set language (select n "deutsch"
"svenska"
""))
(
(if (IN lang n)
(
(if (<> 2 n)
(
(makedir (cat "LOCALE:Catalogs/" language))
(copyfiles (source (cat catalogdir language))
(dest (cat "LOCALE:Catalogs/" language))
(all)
)
))
))
(set n (+ n 1))
))
))
))
(set #which-manpages "\nWhich man pages should be installed?")
(set #which-manhelp "Specify the useful man pages")
(set old_level @user-level)
(set manpagedir "Pages/")
(
;get destination dir for ManPages
(set mydest
(askdir
(prompt "Select the directory where you want to put the man pages:")
(help "The directory where you store the man pages should be on a "
"hard drive. A directory will NOT be created!!\n\n"
)
(default "Work:")
(disk)
)
)
(user 1)
(set lang (askoptions (prompt #which-manpages)
(help #which-manhelp)
(choices "Man"
"Dir"
"DT2IFF"
"List"
"Size"
"Wait"
"Which"
"Why")
)
)
(user old_level)
(set n 0)
(while (set manpage (select n "Man.man"
"Dir.man"
"DT2IFF.man"
"List.man"
"Size.man"
"Wait.man"
"Which.man"
"Why.man"
""))
(
(if (IN lang n)
(
(if (<> 200 n)
(
(copyfiles (source (cat manpagedir manpage))
(dest mydest)
(all)
)
))
))
(set n (+ n 1))
))
)